home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_144_thumbnail script for search.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  1.3 KB  |  41 lines
  1. global gCurrentList, gTNStartChannel, gListObject
  2.  
  3. on mouseUp me
  4.   if sprite(me.spriteNum).member.name = "TN placeholder" then
  5.     exit
  6.   end if
  7.   value(gListObject).pSelectedImageSpriteNum = me.spriteNum
  8.   sprite(80).loc = sprite(me.spriteNum).loc
  9.   value(gListObject).pCurrentImage = sprite(me.spriteNum).member.name
  10.   value(gListObject).pCurrentImageTitle = FindTitle(value(gListObject).pCurrentImage)
  11.   value(gListObject).pImageListPosition = value(gListObject).pSelectedImageSpriteNum - gTNStartChannel + (6 * (value(gListObject).pImageScroll - 1))
  12.   if the doubleClick then
  13.     if sprite(me.spriteNum).member.name <> "TN placeholder" then
  14.       sprite(296).visible = 1
  15.       sprite(252).visible = 1
  16.       sprite(253).visible = 1
  17.       go(the frame)
  18.       go("SView")
  19.     end if
  20.   end if
  21. end
  22.  
  23. on mouseEnter me
  24.   if sprite(me.spriteNum).member.name = "TN Placeholder" then
  25.     member("status").text = EMPTY
  26.     exit
  27.   end if
  28.   imageNum = sprite(me.spriteNum).member.name
  29.   member("status").text = ShortenImageName(imageNum) & "-" & FindTitle(imageNum)
  30.   member("description").text = EMPTY
  31. end
  32.  
  33. on mouseLeave me
  34.   if sprite(me.spriteNum).member.name = "TN Placeholder" then
  35.     exit
  36.   end if
  37.   imageNum = sprite(me.spriteNum).member.name
  38.   member("status").text = EMPTY
  39.   member("description").text = EMPTY
  40. end
  41.